home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / EXPENSES.SAB < prev    next >
Text File  |  1991-10-21  |  2KB  |  64 lines
  1. set messaages off ; set error messages off ; set escape off
  2. label start
  3. cls
  4. display cp.dis
  5. write "EXPENSES.SAB" AT 2,36
  6. write "Property Expenses Program" at 7,27
  7. write "A..... Enter New Expenses' Record                        " at 9,14
  8. write "B..... Edit Property Expenses By Vendor                  " at 10,14
  9. write "C..... Run Report Of Expenses For Vendor                 " at 11,14
  10. write "D..... Run Report Of Expenses For A Property             " at 12,14
  11. write "E..... Run Report Of All Expenses                        " at 13,14
  12. write "F..... Add A New Vendor / Vend Code                      " at 14,14
  13. write "G..... Edit Vendor / Vend Code Data                      " at 15,14
  14. set v opt to ""
  15. fillin opt using "Enter Choice, ADD.CODE Or <ESC> " at 19,14
  16. if opt = "" then ; goto opx ; endif
  17. if opt = "a" then ; goto opa ; endif
  18. if opt = "b" then ; goto opb ; endif
  19. if opt = "c" then ; goto opc ; endif
  20. if opt = "d" then ; goto opd ; endif
  21. if opt = "e" then ; goto ope ; endif
  22. if opt = "f" then ; goto opf ; endif
  23. if opt = "g" then ; goto opg ; endif
  24. edit using expense2 where add.code contains .opt
  25.   goto start
  26. label opa
  27.   enter expenses ; goto start
  28. label opb
  29.   set v vend to ""
  30.   fillin vend using "Enter All Or A Portion Of Vendor Name  " at 21,14
  31.   edit using expense2 where vendor contains .vend ; goto start
  32. label opc
  33.   clear all v
  34.   set v vendr to ""
  35.   fillin vend using "Enter All Or A Portion Of Vendor Name  " at 21,14
  36.   output printer
  37.   print vendlist sorted by date where vendor contains .vend
  38.   output screen ; goto start
  39. label opd
  40.   set v con to ""
  41.   fillin con using "Enter ADD.CODE For Expense Report  " at 21,14
  42.     output printer
  43.     print expense2 sorted by date where add.code contains .con
  44.     output screen ; goto start
  45. label ope
  46.   set v con to ""
  47.   fillin con using "Printing All Expense Records.  Continue? " at 21,14
  48.   if con = "y" or con = "yes" then ; goto ys ; endif
  49.     goto start
  50. label opf
  51.   enter vendor
  52.     goto start
  53. label opg
  54.   set v ven to ""
  55.   fillin ven using "Enter Vend Code To Edit  " at 21,14
  56.   edit using vendor where vendcode = .ven
  57.   goto start
  58. label ys
  59.   output printer
  60.   print expense sorted by add.code date where add.code exists
  61.   output screen ; goto start
  62. label opx
  63.   cls ; return
  64.